home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Extravaganza - Disc 4
/
Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso
/
cad
/
jul90.zip
/
TIP554.LSP
< prev
next >
Wrap
Text File
|
1990-07-09
|
495b
|
24 lines
;TIP554.LSP Defining Function Keys (c)1990, James Tseng
(defun C:FKEYS (/ FF ST)
(setq FF
(getint "Function Keys (3-10): "))
(if (and (> FF 2)(< FF 11))
(progn
(setq
FF (itoa(+ FF 58))
ST (getstring T "Redefine as: ")
ST (strcat "\e[0;" FF ";'" ST "';13p")
)
(textscr)
(prompt ST)
(graphscr)
)
)
) end of FKEYS
(textscr)
(prompt "\e[0;60;'fkeys';13p")
(graphscr)
(prompt "Hotkey: F2")
(princ)